home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.12 Dec 91 / Transfer Menu Code / Common.p next >
Encoding:
Text File  |  1988-12-28  |  2.7 KB  |  117 lines  |  [TEXT/MPS ]
  1. (*******************************************************************
  2.     
  3.     Common.p
  4.     
  5.     Declarations for dynamic Transfer menu demo.
  6.     
  7.     (c) 1988, by Clifford Story & Attic Software
  8.     
  9. ********************************************************************
  10.     
  11.     This is a collection of constant and type declarations, most of
  12.     which are not used in this program.  I keep an odds-and-ends
  13.     unit of such things that I routinely include in all my programs;
  14.     it's too much trouble to sort out what parts are used in Windows
  15.     and what parts aren't.
  16.     
  17.     In addition, there're a few program-specific type declarations
  18.     at the bottom.  This is the structure of the TRNS resource that
  19.     holds the menu data.
  20.     
  21. *******************************************************************)
  22.     
  23. unit Common;
  24.     
  25. (******************************************************************)
  26.     
  27. interface
  28.     
  29. (******************************************************************)
  30.     
  31.     uses memtypes, quickdraw, osintf, toolintf;
  32.     
  33. (*******************************************************************
  34.     
  35.     Key codes:
  36.         
  37. *******************************************************************)
  38.     
  39.     const
  40.     
  41.         enterkey                =    3;
  42.         backspace            =    8;
  43.         tabkey                =    9;
  44.         returnkey            =    13;
  45.         clearkey                =    27;
  46.         leftarrow            =    28;
  47.         rightarrow            =    29;
  48.         uparrow                =    30;
  49.         downarrow            =    31;
  50.         periodkey            =    46;
  51.     
  52. (*******************************************************************
  53.     
  54.     Dialog items:
  55.         
  56. *******************************************************************)
  57.         
  58.         themask                =    3;
  59.         
  60. (*******************************************************************
  61.     
  62.     Low-memory globals:
  63.         
  64. *******************************************************************)
  65.     
  66.         applscratch            =    $A78;
  67.         bootdrive            =    $210;
  68.         curappname            =    $910;
  69.         curdirstore            =    $398;
  70.         currenta5            =    $904;
  71.         findername            =    $2E0;
  72.         fsfcblen                =    $3F6;
  73.         grayrgn                =    $9EE;
  74.         iaznotify            =    $33C;
  75.         mbarheight            =    $BAA;
  76.         menuflash            =    $A24;
  77.         resload                =    $A5E;
  78.         rom85                    =    $28E;
  79.         sfsavedisk            =    $214;
  80.         sysmap                =    $A58;
  81.         windowlist            =    $9D6;
  82.     
  83. (*******************************************************************
  84.     
  85.     Standard types:
  86.         
  87. *******************************************************************)
  88.  
  89.     type
  90.         
  91.         logical                =    boolean;
  92.         long                    =    longint;
  93.         
  94.         shortpointer        =    ^integer;
  95.         longpointer            =    ^long;
  96.         
  97.         str31                    =    String[31];
  98.         
  99.         tline                    =    record
  100.             volume            :    integer;
  101.             directory        :    long;
  102.             name                :    str31;
  103.         end;
  104.         
  105.         trecord                =    record
  106.             count                :    integer;
  107.             appl                :    array [1..100] of tline;
  108.         end;
  109.         tpointer                =    ^trecord;
  110.         thandle                =    ^tpointer;
  111.     
  112. (******************************************************************)
  113.     
  114. end.
  115.     
  116. (******************************************************************)
  117.